home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / Chip Mayıs 2001.iso / prog / share / 07 / ASPFusion / data1.cab / Admin_Pages / Admin / act_automate.asp next >
Encoding:
Text File  |  2001-03-25  |  2.3 KB  |  52 lines
  1. <%
  2. on error resume next
  3. dim SecurityBox
  4. if (Session("Index") <> "Index") then 'add your session management code here
  5.     Response.Redirect "index.asp"
  6. elseif ((Request.QueryString("WebSiteName") = "") or (Request.QueryString("Path") = "") or (Request.QueryString("Return") = "") or (Request.QueryString("FileName") = "")) then
  7.         Session("Index") = ""
  8.         Session("Error") = "Required fields does not exist for processing"
  9.         Response.Redirect("index.asp")
  10.     else
  11.         set SecurityBox = Server.CreateObject("AdvFusionBox.FusionBox")
  12.         SecurityBox.Write "WebSite.ini", "Path", Request.QueryString("WebSiteName"), Request.QueryString("Path"), 1
  13.         if (SecurityBox.IsError = 1) then
  14.             Session("Error") = SecurityBox.ErrorReason
  15.             set SecurityBox = nothing
  16.             Response.Redirect(Request.QueryString("Return"))
  17.         end if
  18.         SecurityBox.Write "WebSite.ini", "Description", Request.QueryString("WebSiteName"), "ASPFusion Security Box for " & Request.QueryString("WebSiteName"), 1
  19.         if (SecurityBox.IsError = 1) then
  20.             Session("Error") = SecurityBox.ErrorReason
  21.             set SecurityBox = nothing
  22.             Response.Redirect(Request.QueryString("Return"))
  23.         end if
  24.         set Result = SecurityBox.ReturnValue("Admin.ini", "Settings", "Default")
  25.         if (SecurityBox.IsError = 1) then
  26.             Session("Error") = SecurityBox.ErrorReason
  27.             set SecurityBox = nothing
  28.             Response.Redirect(Request.QueryString("Return"))
  29.         end if
  30.         SecurityBox.Write "WebSite.ini", "Security", Request.QueryString("WebSiteName"), Result.Value, 1
  31.         set Result = nothing
  32.         if (SecurityBox.IsError = 1) then
  33.             Session("Error") = SecurityBox.ErrorReason
  34.             set SecurityBox = nothing
  35.             Response.Redirect(Request.QueryString("Return"))
  36.         end if
  37.         set Result = SecurityBox.GetAllSectionKeys("Admin.ini", "DefaultMethods")
  38.         for each Member in Result
  39.             SecurityBox.Write "WebSite.ini", Request.QueryString("WebSiteName"), Member.Key, Member.Value, 1
  40.         next
  41.         set Result = nothing
  42.         if (SecurityBox.IsError = 1) then
  43.             Session("Error") = SecurityBox.ErrorReason
  44.             set SecurityBox = nothing
  45.             Response.Redirect(Request.QueryString("Return"))
  46.         end if
  47.         'ASP Include Start Mark
  48.         'ASP Include End Mark
  49.         set SecurityBox = nothing
  50.         Response.Redirect("act_build_automate.asp?filename=" & Request.QueryString("FileName") & "&return=" & Request.QueryString("Return"))
  51.     end if
  52. %>